Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/0635.ZIP/GETDRIVE.INC

Text File | 1987-07-25 | 382b | 18 lines

Function CurrentDrive : Char;
Type
  RegPack = Record
            AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
            End;
Const
  DriveConst : Array[0..6] of Char = ('A','B','C','D','E','F','G');
Var
  Registers : RegPack;
Begin
With Registers do
  Begin
  AX := $19 shl 8;
  MSDos(Registers);
  CurrentDrive := DriveConst[Lo(AX)];
  End;
End; {CurrentDrive}